class ckUser	public property username as string	public property fullname as stringend classType employee	user as ckUser	fname as string	lname as string	title as stringend type    Sub Main()	dim emp1 as employee,emp2 as employee	dim sysuser as ckUser	sysuser = new ckUser	emp1.user = new ckUser	emp1.user.username = "jose"	sysuser = emp1.user	sysuser.username = "jcuevas"	msgbox(emp1.user.username & "=" & sysuser.username)		emp1.fname = "Jose L."	emp1.lname = "Cuevas"	emp1.title = "Programmer"	msgbox("emp1: Jose L. Cuevas=" & emp1.fname & " " & emp1.lname)	emp2 = copy(emp1)	msgbox("emp1.fname=emp2.fname: " & emp1.fname & "=" & emp2.fname)		//Notice that objects are not copied. emp1 and emp1 share the same	//instance of user.	emp2.user.username = "ctk"		msgbox(emp1.user.username & "=" & emp2.user.username)end sub